﻿Imports Entidades
Public Class frmModObjeto
    Private objAnt As New Objeto
    Private objNue As Objeto
    Private listaFam As New List(Of Familia)
    Private fam As New Familia
    Private num As Integer
    Private codSerie As String

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Me.Close()

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If txtCodigo.Text = "" Then
            MessageBox.Show("No has introducido codigo de serie")
            Exit Sub
        End If
        objAnt = miGestion.detallesDeUnObjeto(txtCodigo.Text)
        If IsNothing(objAnt) Then
            MessageBox.Show("No existe ningun objeto con este codigo de serie")

            Exit Sub
        End If

        listaFam = miGestion.obtenerFamilias
        cboFamilia.Items.Clear()

        For i As Integer = 0 To listaFam.Count - 1
            cboFamilia.Items.Add(listaFam(i).Nombre)
            If objAnt.IdFamilia = listaFam(i).IdFamilia Then
                cboFamilia.Text = listaFam(i).Nombre
                fam = listaFam(i)
            End If
        Next
        cboTamaño.Items.Clear()
        num = objAnt.NumeroFamilia

        txtDescripcion.Text = objAnt.Descripcion
        txtValoracion.Text = objAnt.Valoracion
        cboTamaño.Text = objAnt.Tamaño
        If fam.IdFamilia = "ZA" Then
            cboTamaño.Items.Add("32")
            cboTamaño.Items.Add("33")
            cboTamaño.Items.Add("34")
            cboTamaño.Items.Add("35")
            cboTamaño.Items.Add("36")
            cboTamaño.Items.Add("37")
            cboTamaño.Items.Add("38")
            cboTamaño.Items.Add("39")
            cboTamaño.Items.Add("40")
            cboTamaño.Items.Add("41")
            cboTamaño.Items.Add("42")
            cboTamaño.Items.Add("43")
            cboTamaño.Items.Add("44")
            cboTamaño.Items.Add("45")
            cboTamaño.Items.Add("46")
            cboTamaño.Items.Add("47")
            cboTamaño.Items.Add("48")



        Else
            cboTamaño.Items.Add("XS")
            cboTamaño.Items.Add("S")
            cboTamaño.Items.Add("M")
            cboTamaño.Items.Add("L")
            cboTamaño.Items.Add("XL")
            cboTamaño.Items.Add("XXL")
            cboTamaño.Items.Add("NT")
        End If


    End Sub

    Private Sub frmModObjeto_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub

    Private Sub cboFamilia_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboFamilia.SelectedIndexChanged

        For i As Integer = 0 To listaFam.Count - 1
            If listaFam(i).Nombre = cboFamilia.Text Then
                fam = listaFam(i)
            End If
        Next
        cboTamaño.Items.Clear()
        If fam.IdFamilia = "ZA" Then
            cboTamaño.Items.Add("32")
            cboTamaño.Items.Add("33")
            cboTamaño.Items.Add("34")
            cboTamaño.Items.Add("35")
            cboTamaño.Items.Add("36")
            cboTamaño.Items.Add("37")
            cboTamaño.Items.Add("38")
            cboTamaño.Items.Add("39")
            cboTamaño.Items.Add("40")
            cboTamaño.Items.Add("41")
            cboTamaño.Items.Add("42")
            cboTamaño.Items.Add("43")
            cboTamaño.Items.Add("44")
            cboTamaño.Items.Add("45")
            cboTamaño.Items.Add("46")
            cboTamaño.Items.Add("47")
            cboTamaño.Items.Add("48")



        Else
            cboTamaño.Items.Add("XS")
            cboTamaño.Items.Add("S")
            cboTamaño.Items.Add("M")
            cboTamaño.Items.Add("L")
            cboTamaño.Items.Add("XL")
            cboTamaño.Items.Add("XXL")
            cboTamaño.Items.Add("NT")
        End If
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        If cboFamilia.Text = "" Then
            MessageBox.Show("Faltan datos sin rellenar")
            Exit Sub
        End If
        If txtValoracion.Text = "" Then
            MessageBox.Show("Faltan datos sin rellenar")
            Exit Sub

        End If
        If txtDescripcion.Text = "" Then
            MessageBox.Show("Faltan datos sin rellenar")
            Exit Sub
        End If
        If cboTamaño.Text = "" Then
            MessageBox.Show("Faltan datos sin rellenar")
            Exit Sub

        End If
        If Not IsNumeric(txtValoracion.Text) Then
            MessageBox.Show("Valoracion no valida")
            Exit Sub

        End If
        If objAnt.IdFamilia <> fam.IdFamilia Then
            num = miGestion.contarObjetosDeUnaFamilia(fam) + 1
        End If
        Dim numSt As String = num.ToString
        If numSt.Length = 1 Then
            numSt = "00" & numSt
        End If
        If numSt.Length = 2 Then
            numSt = "0" & numSt
        End If
        If numSt.Length = 3 Then
            numSt = numSt
        End If
        codSerie = "P" & fam.IdFamilia & numSt & "T" & cboTamaño.Text
        objNue = New Objeto(fam.IdFamilia, num, objAnt.IdEntrega, Double.Parse(txtValoracion.Text), cboTamaño.Text, codSerie, txtDescripcion.Text)
        Dim st As String = miGestion.ModificarObjeto(objNue, objAnt)
        If st <> "" Then
            MessageBox.Show(st)
            Exit Sub
        Else

            MessageBox.Show("Se ha modificado, y el nuevo codigo de serie es " & codSerie)
            txtNue.Text = codSerie
        End If
    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        If txtDescripcion.Text = "" Then
            MessageBox.Show("No es posible realizar la operación")
            Exit Sub
        End If
        Dim frm As New frmDarDeBaja
        frm.obj = objAnt
        frm.ShowDialog()

    End Sub
End Class